<!--#INCLUDE FILE="programmer.inc"-->
<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="function_charCode.asp" -->
<!-- #include file="function.asp" -->
<!-- #include file="comSub.asp" -->
<!--#include file="md5.asp"-->
<script src=inc/js2.js></script>

<%
call bbsClose()        ' ̳رգתҳǹԱ⡣
call stylefile()
%>

<SCRIPT for=username event=onblur language=javaScript>
function charfiltrate(str2){
      var str1 = document.form1.username.value
      var s = str1.indexOf(str2);
      if (s != -1){
      alert("ûкзǷַ  '"+str2+"'  \nд");
      document.form1.username.value=""
      document.form1.username.focus();
      return false;
       }
}
var arrayStr,i;
 arrayStr=new Array("","","վ","Ա","ο");
for (i in  arrayStr){
     charfiltrate(arrayStr[i]);
}
</SCRIPT>


<SCRIPT for=email event=onblur language=javaScript>
var mail = document.form1.email.value;
if (mail != ""){
     if (mail.indexOf('@',0) == -1 || mail.indexOf('.',0) == -1){
            alert("ĵ䣨E_mailַд\nд");
            document.form1.email.value=""
             return false;
     }
}

if (!isemail(document.form1.email.value))
{
	return false;
}
function isemail(s)
{
        
	if (s.length > 100)
	{
		window.alert("emailַȲܳ100λ!");
                             document.form1.email.value=""
		return false;
	}
	 var regu = "^(([0-9a-zA-Z]+)|([0-9a-zA-Z]+[_.0-9a-zA-Z-]*[0-9a-zA-Z]+))@([a-zA-Z0-9-]+[.])+([a-zA-Z]{2}|net|NET|com|COM|gov|GOV|mil|MIL|org|ORG|edu|EDU|int|INT)$";
	 var re = new RegExp(regu);
	 if (s.search(re) != -1) {
		return true;
	 } 
	 else {
		window.alert ("ЧϷE-mailַ ")
                             document.form1.email.value=""
		return false;
	 }
}
</SCRIPT>

<html>
<head>
<title>ûע</title>
</head>
<body topmargin=0>
<table border=0 width=100% cellspacing=0 cellpadding=1>
         <tr>
                  <td width=100 height="67" bgcolor=greenyellow>
                          <img border="0" src="images/tushan2.gif" width="100" height="65" align=middle vspace=0 hspace=0>
                  </td>
                  <td rowspan=2 bgcolor=dodgerblue>
                           <a href=advertisement/zcad/top.htm target="new">
                           <%
                                 set objad=server.createobject("mswc.adrotator")
                                 response.write objad.getadvertisement("advertisement/zcad/topadrot.txt")
                                 set objad=nothing
                            %>
                           </a>
                  </td>
         </tr>
         <tr>
                  <td height="6" bgcolor=dodgerblue>
                  </td>
         </tr>
</table>
<table border=0 width=20% align=left cellspacing="" cellpadding="1">
        <tr height=60>
                <td bgcolor=dodgerblue>
                       <a href=advertisement/zcad/left1.htm target="new">
<%
                           set objad=server.createobject("mswc.adrotator")
                           response.write objad.getadvertisement("advertisement/zcad/leftadrot1.txt")
                           set objad=nothing
%>
                        </a>
                </td>
       </tr>
       <tr height=5>
                <td></td>
        </tr>
        <tr height=60>
                 <td bgcolor=dodgerblue>
                        <a href=advertisement/zcad/left2.htm target="new">
<%
                              set objad=server.createobject("mswc.adrotator")
                              response.write objad.getadvertisement("advertisement/zcad/leftadrot2.txt")
                              set objad=nothing
%>
                         </a>
                  </td>
        </tr>
        <tr height=5>
                   <td></td>
        </tr>
        <tr height=60>
                   <td bgcolor=dodgerblue>
                         <a href=advertisement/zcad/left3.htm target="new">
<%
                               set objad=server.createobject("mswc.adrotator")
                               response.write objad.getadvertisement("advertisement/zcad/leftadrot3.txt")
                               set objad=nothing
%>
                          </a>
                    </td>
        </tr>
        <tr height=5>
                   <td></td>
        </tr>
        <tr height=60>
                   <td bgcolor=dodgerblue>
                          <a href=advertisement/zcad/left4.htm target="new">
<%
                                set objad=server.createobject("mswc.adrotator")
                                 response.write objad.getadvertisement("advertisement/zcad/leftadrot4.txt")
                                 set objad=nothing
%>
                            </a>
                    </td>
         </tr>
</table>
 
<table class=td8 border=0 width=79% cellspacing="0" cellpadding="4">
         <tr>
                   <td align=left class=font3>&nbsp;&nbsp;<img src=images/home.gif><a class=a4 href=index.asp >ҳ</a>&nbsp;<b></b>&nbsp;ע</td>
         </tr>
</table>

<br><br>
<%
if Request("zchandle")="" then
         dim action
         action=request.querystring("action")
         if action<>"agree" then
                Response.Write "<table align=center border=1>"
                Response.Write "<b>עǰĶ̳Э</b><br>ӭ뱾վμӽۣվΪ̳ΪάϹȶԾ<br>һñվΣҰȫй¶ܣַἯĺ͹ĺϷȨ棻<br>Υܷͷ棻<br>أԼۺΪ<br>ġվӵһйȨ.<br>塢ٵ¼վһΣûʧЧ"
                Response.Write "</table><table align=center border=0><tr><form method=POST action='?action=agree'><td><input type=submit value='ͬ' name=B1></td></form>"
                Response.Write "<td>&nbsp;<input type='submit' value='ͬ' onclick='history.back(-1)'>"
                Response.Write "</table>"
%>
        <%else%>
                <CENTER>
                <p><font color="#000070" face="_GB2312" size="4"><b>  ע </b></font></p>
                <form method="post" action="zc.asp?zchandle=zzz" name=form1>
                <input type="hidden" name="isok" value="ok"> 
                <table align=center border=0 cellpadding="3" cellspacing="3" class=border2_2>
                           <tr><td align=left><font color=red>*</font>&nbsp;û:</td><td><input type="text" name="username" size="20" maxlength=30></td></tr>
                           <tr><td align=left><font color=red>*</font>&nbsp;&nbsp;&nbsp;:</td><td><input type="password" name="password" size="20" maxlength=30></td></tr>
                           <tr><td align=left><font color=red>*</font>&nbsp;:</td><td><input type="password" name="password2" size="20"></td></tr>
                           <tr>
						        <td align=left colspan="3">
                                    <br>
                                    <table align=center border=0 bgcolor="#eeeeee">
                                        <tr><td align=left>д⣬ʱһء</td></tr>
                                        <tr><td align=left height="3"></td></tr>
                                        <tr><td align=left><font color=red>*</font>&nbsp;һ⣨50ַ:<br><center><input type="text" name="myAdvanceProblem" size="40"></center></td></tr>
                                        <tr><td align=left><font color=red>*</font>&nbsp;Ĵ𰸣50ַ:<br><center><input type="text" name="myAnswer" size="40"></center></td></tr>
                                    </table>
                                    <br>
						        </td>
						   </tr>
						   <tr>
<%
                               If VCYes() Then
                                   Response.Write "<td><font color=red>*</font>&nbsp;֤&nbsp;</td>"
                                   Response.Write "<td><input type='text' name='chknum' size='8'>&nbsp;&nbsp;"
                                   Call ImgVCShow()
                                   Response.Write "</td>"
                               End If                     
%>
                           </tr>
                           <tr>
						       <td align=left>E-mail:</td><td><input type="text" name="email" size="20"></td>
						   </tr>
                           <tr>
						       <td colspan="2" align="center">&nbsp;&nbsp;<input type=submit name="submit" value="   "><input type="reset" name="reset" value="  д "></td>
						   </tr>
                 </table>

                 </form>
         <%end if%>
<%end if%>

<%
dim sure
sure = Request("isok")
if sure = "ok" then
        if VCYes() then
               Call ImgVCShow_handle2()
        end if
        dim username,password,password2,email
        username= Trim(Request("username"))
        errorchar=array(" ","","	","","","#","`","|","%","&","+",";",",","<",">")
        for i=0 to ubound(errorchar)
              if instr(username,errorchar(i))>0 then
                     Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(0))</SCRIPT>"
                     Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(1))</SCRIPT>"
                     Response.write"<META HTTP-EQUIV='Refresh' content='6; URL=zc.asp?action=agree'>"
                     Response.End
              end if
        next
        password= Trim(Request("password"))
        password= md5(password)
        password2= Trim(Request("password2"))
        password2= md5(password2)
        email = Trim(Request("email"))
        Dim myAdvanceProblem,myAnswer
        myAdvanceProblem = Trim(Request("myAdvanceProblem"))
        myAnswer = Trim(Request("myAnswer"))
        if len(Request("username"))=0 or len(Request("password"))=0 or len(Request("password2"))=0 or len(Request("myAdvanceProblem"))=0 or len(Request("myAnswer"))=0 Then
               Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(2))</SCRIPT>"
               Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(3))</SCRIPT>"
               Response.write"<META HTTP-EQUIV='Refresh' content='6; URL=zc.asp?action=agree'>"
               Response.End
        elseif len(username)>15 then
               Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(4))</SCRIPT>"
               Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(5))</SCRIPT>"
               Response.write"<META HTTP-EQUIV='Refresh' content='6; URL=zc.asp?action=agree'>"
               Response.End
        elseif password <> password2 then
               Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(6))</SCRIPT>"
               Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(7))</SCRIPT>"
               Response.write"<META HTTP-EQUIV='Refresh' content='6; URL=zc.asp?action=agree'>"
               Response.End
        else
               if Request.cookies("soonmess")("lastpost") <> ""  then
                      if DateDiff("s",request.cookies("soonmess")("lastpost"),Now())<MySI() then
                             Response.redirect  ("error.asp?FromZc=ok&info=עᣬʱ" &MySI()& "롣")
                             Response.End
                      end if
               end if
               Response.cookies("soonmess")("lastpost")=Now()
               sql="select * from ts_userinfo where username='"&username&"'"
               set rs=server.createobject("adodb.recordset")
               rs.open sql,conn,1,2
                     if rs.bof and rs.eof then
                           rs.addnew
                                rs("username") = username
                                rs("UserPassword") = password
                                rs("email") = email
                                rs("mingwenPW") = server.urlencode(Trim(Request("password")))
                                rs("AdvanceProblem") = server.urlencode(myAdvanceProblem)
                                rs("Answer") = server.urlencode(myAnswer)
                           rs.update
                           userloginip = userIP() 
                           userloginipSql = "update ts_userinfo set loginIP='" &userloginip&"' where username = '" & username &"'"
                           conn.Execute (userloginipSql)
                           sql2= "update ts_userinfo set loginNow=now,enrol=now where username='"&username&"' and UserPassword='"&password&"'"
                           conn.execute(sql2)
                           session("tslt_username")=username
                           session("tslt_password")=password
                           session("tslt_lgtype")=1
                            call DelSpilthRecord()
                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(8))</SCRIPT>"& username & "<SCRIPT language=Javascript>passwords(promptInfo_zc(9))</SCRIPT>"
                            Response.Write"<META HTTP-EQUIV='Refresh' content='4; URL=index.asp' >"
                            Call ImgVCRndnum()
                     else
                            Response.Write "<SCRIPT language=Javascript>passwords(promptInfo_zc(10))</SCRIPT>"
                            Response.Write"<input type=button style='font:9pt Verdana' name=button value='ֶ' onclick=javascript:history.go(-1);> </center>"
                            Response.Write"<META HTTP-EQUIV='Refresh' content='4; URL=zc.asp?action=agree'>"
                     end if
               rs.close
               set rs=nothing
       end if
end if
%>
</table>
</CENTER>
<!--#INCLUDE FILE="bottom.asp"-->
</body>
</html>

<%
Call conn_Nothing()

%>